home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / system / System.p < prev    next >
Encoding:
Text File  |  2001-03-06  |  36.8 KB  |  1,050 lines
  1. pTempVar <- <primitive 110 28 >
  2. <primitive 112 pTempVar 1  " new " \
  3.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  4.     #( #privateSetup  )) >
  5.  
  6. <primitive 112 pTempVar 2  " privateSetup " \
  7.   #( #[ 16r10 16rA1 16rF7 16r1F 16r20 16r80 16r00 16r71 16r21 16r50 16rC9 \
  8.         16rF7 16r06 16r31 16r60 16r20 16rF3 16rF8 16r10 16rF2 16r32 \
  9.         16rA8 16rF2 16r05 16r15 16r21 16rFA 16r02 16rE6 16rA8 16rF2 \
  10.         16r5D 16rF1 16r60 16rF3 16rF2 16rF5] \
  11.     #( #privateOpen 'MyNarrator' 'Problem opening Narrator:'  )) >
  12.  
  13. <primitive 112 pTempVar 3  " new: " \
  14.   #( #[ 16r30 16rA8 16rF2 16r5D 16rF3 16rF5] \
  15.     #( 'Cannot use new: method on Narrator class!'  )) >
  16.  
  17. <primitive 112 pTempVar 4  " translateText: " \
  18.   #( #[ 16r05 16r14 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  19.     #(  )) >
  20.  
  21. <primitive 112 pTempVar 5  " speakPhonetics: " \
  22.   #( #[ 16r05 16r13 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  23.     #(  )) >
  24.  
  25. <primitive 112 pTempVar 6  " speak: " \
  26.   #( #[ 16r05 16r12 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  27.     #(  )) >
  28.  
  29. <primitive 112 pTempVar 7  " setFricationAmplitude: " \
  30.   #( #[ 16r05 16r11 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  31.     #(  )) >
  32.  
  33. <primitive 112 pTempVar 8  " setVoicingAmplitude: " \
  34.   #( #[ 16r05 16r10 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  35.     #(  )) >
  36.  
  37. <primitive 112 pTempVar 9  " setFlags: " \
  38.   #( #[ 16r30 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  39.     #( 15  )) >
  40.  
  41. <primitive 112 pTempVar 10  " setCentralizeValue: " \
  42.   #( #[ 16r30 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  43.     #( 14  )) >
  44.  
  45. <primitive 112 pTempVar 11  " setPhoneme: " \
  46.   #( #[ 16r30 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  47.     #( 13  )) >
  48.  
  49. <primitive 112 pTempVar 12  " setArticulation: " \
  50.   #( #[ 16r30 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  51.     #( 12  )) >
  52.  
  53. <primitive 112 pTempVar 13  " setPitchModulation: " \
  54.   #( #[ 16r30 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  55.     #( 11  )) >
  56.  
  57. <primitive 112 pTempVar 14  " setPriority: " \
  58.   #( #[ 16r30 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  59.     #( 10  )) >
  60.  
  61. <primitive 112 pTempVar 15  " setEnthusiasm: " \
  62.   #( #[ 16r59 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  63.     #(  )) >
  64.  
  65. <primitive 112 pTempVar 16  " setFormant3Amplitude: " \
  66.   #( #[ 16r58 16r53 16r21 16rFA 16r03 16rE6 16rF3 16rF5] \
  67.     #(  )) >
  68.  
  69. <primitive 112 pTempVar 17  " setFormant2Amplitude: " \
  70.   #( #[ 16r58 16r52 16r21 16rFA 16r03 16rE6 16rF3 16rF5] \
  71.     #(  )) >
  72.  
  73. <primitive 112 pTempVar 18  " setFormant1Amplitude: " \
  74.   #( #[ 16r58 16r51 16r21 16rFA 16r03 16rE6 16rF3 16rF5] \
  75.     #(  )) >
  76.  
  77. <primitive 112 pTempVar 19  " setFormant3: " \
  78.   #( #[ 16r57 16r53 16r21 16rFA 16r03 16rE6 16rF3 16rF5] \
  79.     #(  )) >
  80.  
  81. <primitive 112 pTempVar 20  " setFormant2: " \
  82.   #( #[ 16r57 16r52 16r21 16rFA 16r03 16rE6 16rF3 16rF5] \
  83.     #(  )) >
  84.  
  85. <primitive 112 pTempVar 21  " setFormant1: " \
  86.   #( #[ 16r57 16r51 16r21 16rFA 16r03 16rE6 16rF3 16rF5] \
  87.     #(  )) >
  88.  
  89. <primitive 112 pTempVar 22  " setRate: " \
  90.   #( #[ 16r56 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  91.     #(  )) >
  92.  
  93. <primitive 112 pTempVar 23  " setMode: " \
  94.   #( #[ 16r55 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  95.     #(  )) >
  96.  
  97. <primitive 112 pTempVar 24  " setPitch: " \
  98.   #( #[ 16r54 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  99.     #(  )) >
  100.  
  101. <primitive 112 pTempVar 25  " setSex: " \
  102.   #( #[ 16r53 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  103.     #(  )) >
  104.  
  105. <primitive 112 pTempVar 26  " setVolume: " \
  106.   #( #[ 16r52 16r21 16rFA 16r02 16rE6 16rF3 16rF5] \
  107.     #(  )) >
  108.  
  109. <primitive 112 pTempVar 27  " privateOpen " \
  110.   #( #[ 16r51 16rFA 16r01 16rE6 16rF3 16rF5] \
  111.     #(  )) >
  112.  
  113. <primitive 112 pTempVar 28  " close " \
  114.   #( #[ 16r50 16rFA 16r01 16rE6 16rF2 16rF5] \
  115.     #(  )) >
  116.  
  117. <primitive 98 #Narrator \
  118.   <primitive 97 #Narrator #Device #AmigaTalk:System/Narrator.st \
  119.    #(  #uniqueInstance ) \
  120.    #( #new #privateSetup #new: #translateText: #speakPhonetics: #speak:  \
  121.        #setFricationAmplitude: #setVoicingAmplitude: #setFlags: #setCentralizeValue: #setPhoneme:  \
  122.        #setArticulation: #setPitchModulation: #setPriority: #setEnthusiasm:  \
  123.        #setFormant3Amplitude: #setFormant2Amplitude: #setFormant1Amplitude: #setFormant3:  \
  124.        #setFormant2: #setFormant1: #setRate: #setMode: #setPitch: #setSex: #setVolume:  \
  125.        #privateOpen #close  ) \
  126.   pTempVar 2 5 >>
  127.  
  128. pTempVar <- <primitive 110 18 >
  129. <primitive 112 pTempVar 1  " new: " \
  130.   #( #[ 16r20 16r21 16r81 16r00 16rF3 16rF5] \
  131.     #( #privateSetup:  )) >
  132.  
  133. <primitive 112 pTempVar 2  " privateSetup: " \
  134.   #( #[ 16r10 16rA1 16rF7 16r0D 16r20 16r21 16r81 16r00 16r72 16r22 16r80 \
  135.         16r01 16rF7 16r03 16r20 16rF1 16r60 16rF2 16r22 16r80 16r01 \
  136.         16rF7 16r04 16r20 16rF3 16rF8 16r03 16rF2 16r5D 16rF3 16rF2 \
  137.         16rF5] \
  138.     #( #privateOpen: #isNotNil  )) >
  139.  
  140. <primitive 112 pTempVar 3  " new " \
  141.   #( #[ 16r30 16rA8 16rF2 16r5D 16rF3 16rF5] \
  142.     #( 'Cannot use new method on Parallel class!'  )) >
  143.  
  144. <primitive 112 pTempVar 4  " close " \
  145.   #( #[ 16r50 16rFA 16r01 16rE0 16rF2 16rF5] \
  146.     #(  )) >
  147.  
  148. <primitive 112 pTempVar 5  " testToggleDataBits: " \
  149.   #( #[ 16r05 16r10 16r21 16rFA 16r02 16rE0 16rF2 16rF5] \
  150.     #(  )) >
  151.  
  152. <primitive 112 pTempVar 6  " testToggleCtrlBits: " \
  153.   #( #[ 16r30 16r21 16rFA 16r02 16rE0 16rF2 16rF5] \
  154.     #( 15  )) >
  155.  
  156. <primitive 112 pTempVar 7  " privateOpen: " \
  157.   #( #[ 16r51 16r21 16rFA 16r02 16rE0 16r72 16r22 16r50 16rCA 16rF7 16r0C \
  158.         16r30 16rA8 16rF2 16r52 16r22 16rFA 16r02 16rE0 16rA8 16rF2 \
  159.         16r5D 16rF3 16rF2 16r20 16rF3 16rF5] \
  160.     #( 'Error opening parallel.device:'  )) >
  161.  
  162. <primitive 112 pTempVar 8  " readControlBitsMaskedBy: " \
  163.   #( #[ 16r30 16r21 16rFA 16r02 16rE0 16rF3 16rF5] \
  164.     #( 14  )) >
  165.  
  166. <primitive 112 pTempVar 9  " sendPortControlBits: " \
  167.   #( #[ 16r30 16r21 16rFA 16r02 16rE0 16rF3 16rF5] \
  168.     #( 13  )) >
  169.  
  170. <primitive 112 pTempVar 10  " setPortDirectionAtomic: " \
  171.   #( #[ 16r30 16r21 16rFA 16r02 16rE0 16rF3 16rF5] \
  172.     #( 12  )) >
  173.  
  174. <primitive 112 pTempVar 11  " setTerminatorsTo: " \
  175.   #( #[ 16r30 16r21 16rFA 16r02 16rE0 16rF3 16rF5] \
  176.     #( 11  )) >
  177.  
  178. <primitive 112 pTempVar 12  " writeToPort:thisLong: " \
  179.   #( #[ 16r30 16r22 16r21 16rFA 16r03 16rE0 16r73 16r23 16r22 16rCA 16rF7 \
  180.         16r02 16r31 16rA8 16rF2 16rF5] \
  181.     #( 10 'Parallel Port write error!'  )) >
  182.  
  183. <primitive 112 pTempVar 13  " readThisMany: " \
  184.   #( #[ 16r59 16r21 16rFA 16r02 16rE0 16rF3 16rF5] \
  185.     #(  )) >
  186.  
  187. <primitive 112 pTempVar 14  " startPort " \
  188.   #( #[ 16r57 16rFA 16r01 16rE0 16rF3 16rF5] \
  189.     #(  )) >
  190.  
  191. <primitive 112 pTempVar 15  " stopPort " \
  192.   #( #[ 16r56 16rFA 16r01 16rE0 16rF3 16rF5] \
  193.     #(  )) >
  194.  
  195. <primitive 112 pTempVar 16  " flushPort " \
  196.   #( #[ 16r55 16rFA 16r01 16rE0 16rF3 16rF5] \
  197.     #(  )) >
  198.  
  199. <primitive 112 pTempVar 17  " resetPort " \
  200.   #( #[ 16r54 16rFA 16r01 16rE0 16rF3 16rF5] \
  201.     #(  )) >
  202.  
  203. <primitive 112 pTempVar 18  " status " \
  204.   #( #[ 16r53 16rFA 16r01 16rE0 16rF3 16rF5] \
  205.     #(  )) >
  206.  
  207. <primitive 98 #ParallelDevice \
  208.   <primitive 97 #ParallelDevice #Device #AmigaTalk:System/ParallelDevice.st \
  209.    #(  #uniqueInstance ) \
  210.    #( #new: #privateSetup: #new #close #testToggleDataBits:  \
  211.        #testToggleCtrlBits: #privateOpen: #readControlBitsMaskedBy: #sendPortControlBits:  \
  212.        #setPortDirectionAtomic: #setTerminatorsTo: #writeToPort:thisLong: #readThisMany: #startPort  \
  213.        #stopPort #flushPort #resetPort #status  ) \
  214.   pTempVar 4 7 >>
  215.  
  216. pTempVar <- <primitive 110 15 >
  217. <primitive 112 pTempVar 1  " clipTypeIs " \
  218.   #( #[ 16r53 16r10 16rFA 16r02 16rDD 16r71 16r21 16r5D 16rB5 16rF7 16r02 \
  219.         16r30 16rF3 16rF2 16r21 16r5B 16rB5 16rF7 16r02 16r31 16rF3 \
  220.         16rF2 16r32 16rF3 16rF5] \
  221.     #( #CLIP_ERROR #FTXT #ILBM  )) >
  222.  
  223. <primitive 112 pTempVar 2  " postAsciiStringToClip: " \
  224.   #( #[ 16r51 16r21 16r10 16rFA 16r03 16rDD 16rF2 16rF5] \
  225.     #(  )) >
  226.  
  227. <primitive 112 pTempVar 3  " writeILBMClipToFile: " \
  228.   #( #[ 16r30 16r10 16r21 16rFA 16r03 16rDD 16r72 16r22 16r50 16rCA 16rF7 \
  229.         16r0C 16r31 16r21 16rA8 16r0B 16r11 16rF2 16r59 16r22 16rFA \
  230.         16r02 16rDD 16rA8 16rF2 16rF5] \
  231.     #( 14 'Clip did NOT make it to file '  )) >
  232.  
  233. <primitive 112 pTempVar 4  " postILBMFileToClip: " \
  234.   #( #[ 16r58 16r10 16r21 16rFA 16r03 16rDD 16r72 16r22 16r50 16rCA 16rF7 \
  235.         16r0C 16r21 16r30 16rA8 16r0B 16r11 16rF2 16r59 16r22 16rFA \
  236.         16r02 16rDD 16rA8 16rF2 16rF5] \
  237.     #( ' did NOT make it to the clipboard!'  )) >
  238.  
  239. <primitive 112 pTempVar 5  " postFTXTFileToClip: " \
  240.   #( #[ 16r57 16r10 16r21 16rFA 16r03 16rDD 16r72 16r22 16r50 16rCA 16rF7 \
  241.         16r0C 16r21 16r30 16rA8 16r0B 16r11 16rF2 16r59 16r22 16rFA \
  242.         16r02 16rDD 16rA8 16rF2 16rF5] \
  243.     #( ' did NOT make it to the clipboard!'  )) >
  244.  
  245. <primitive 112 pTempVar 6  " update " \
  246.   #( #[ 16r30 16r10 16rFA 16r02 16rDD 16r5B 16rCA 16rF7 16r02 16r31 16rA8 \
  247.         16rF2 16rF5] \
  248.     #( 12 'Clipboard update method failed!'  )) >
  249.  
  250. <primitive 112 pTempVar 7  " postAsciiFileToClip: " \
  251.   #( #[ 16r50 16r10 16r21 16rFA 16r03 16rDD 16r72 16r22 16r50 16rCA 16rF7 \
  252.         16r0C 16r21 16r30 16rA8 16r0B 16r11 16rF2 16r59 16r22 16rFA \
  253.         16r02 16rDD 16rA8 16rF2 16rF5] \
  254.     #( ' did NOT make it to the clipboard!'  )) >
  255.  
  256. <primitive 112 pTempVar 8  " postFTXTToClip: " \
  257.   #( #[ 16r30 16r10 16r21 16rFA 16r03 16rDD 16r72 16r22 16r50 16rCA 16rF7 \
  258.         16r09 16r31 16rA8 16rF2 16r59 16r22 16rFA 16r02 16rDD 16rA8 \
  259.         16rF2 16rF5] \
  260.     #( 13 'string did NOT make it to the clipboard!'  )) >
  261.  
  262. <primitive 112 pTempVar 9  " writeFTXTClipToASCIIFile: " \
  263.   #( #[ 16r54 16r21 16r10 16rFA 16r03 16rDD 16r72 16r22 16r50 16rCA 16rF7 \
  264.         16r0F 16r30 16r21 16rA8 16r0B 16r11 16rF2 16r59 16r22 16rFA \
  265.         16r02 16rDD 16rA8 16rF2 16r5D 16rF3 16rF2 16rF5] \
  266.     #( 'Clip did NOT make it to file '  )) >
  267.  
  268. <primitive 112 pTempVar 10  " writeFTXTClipToFTXTFile: " \
  269.   #( #[ 16r52 16r10 16r21 16rFA 16r03 16rDD 16r72 16r22 16r50 16rCA 16rF7 \
  270.         16r0C 16r30 16r21 16rA8 16r0B 16r11 16rF2 16r59 16r22 16rFA \
  271.         16r02 16rDD 16rA8 16rF2 16rF5] \
  272.     #( 'Clip did NOT make it to file '  )) >
  273.  
  274. <primitive 112 pTempVar 11  " setClipUnit: " \
  275.   #( #[ 16r21 16rF1 16r60 16rF3 16rF5] \
  276.     #(  )) >
  277.  
  278. <primitive 112 pTempVar 12  " closeHookedClipboard " \
  279.   #( #[ 16r56 16r10 16rFA 16r02 16rDD 16rF2 16rF5] \
  280.     #(  )) >
  281.  
  282. <primitive 112 pTempVar 13  " openHookedClipboard:withHook: " \
  283.   #( #[ 16r55 16r21 16r22 16rFA 16r03 16rDD 16r73 16r23 16r5D 16rB5 16rF7 \
  284.         16r0B 16r30 16r21 16r0B 16r11 16r31 16rA8 16r0B 16r11 16rF2 \
  285.         16r5D 16rF3 16rF2 16r20 16r21 16r81 16r02 16rF3 16rF5] \
  286.     #( 'Clip #' ' did NOT open!' #setClipUnit:  )) >
  287.  
  288. <primitive 112 pTempVar 14  " new " \
  289.   #( #[ 16r20 16r50 16rB0 16rF3 16rF5] \
  290.     #(  )) >
  291.  
  292. <primitive 112 pTempVar 15  " new: " \
  293.   #( #[ 16r20 16r21 16r81 16r00 16rF2 16r20 16rF3 16rF5] \
  294.     #( #setClipUnit:  )) >
  295.  
  296. <primitive 98 #ClipBoard \
  297.   <primitive 97 #ClipBoard #Device #AmigaTalk:System/ClipBoard.st \
  298.    #(  #unitNumber ) \
  299.    #( #clipTypeIs #postAsciiStringToClip: #writeILBMClipToFile: #postILBMFileToClip:  \
  300.        #postFTXTFileToClip: #update #postAsciiFileToClip: #postFTXTToClip: #writeFTXTClipToASCIIFile:  \
  301.        #writeFTXTClipToFTXTFile: #setClipUnit: #closeHookedClipboard #openHookedClipboard:withHook: #new #new:  ) \
  302.   pTempVar 4 4 >>
  303.  
  304. pTempVar <- <primitive 110 2 >
  305. <primitive 112 pTempVar 1  " writeFTXTClip:toFTXTString:size: " \
  306.   #( #[ 16r30 16r21 16r23 16r22 16rFA 16r04 16rDD 16r74 16r24 16r50 16rCA \
  307.         16rF7 16r09 16r31 16rA8 16rF2 16r59 16r24 16rFA 16r02 16rDD \
  308.         16rA8 16rF2 16rF5] \
  309.     #( 11 'Clip did NOT make it to string!'  )) >
  310.  
  311. <primitive 112 pTempVar 2  " postToClipUnit:fromFTXTString: " \
  312.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rDD 16r73 16r23 16r50 16rCA 16rF7 \
  313.         16r09 16r31 16rA8 16rF2 16r59 16r23 16rFA 16r02 16rDD 16rA8 \
  314.         16rF2 16rF5] \
  315.     #( 10 'String did NOT make it to Clipboard!'  )) >
  316.  
  317. <primitive 98 #IFFClipBoard \
  318.   <primitive 97 #IFFClipBoard #Device #AmigaTalk:System/ClipBoard.st \
  319.    #(  ) \
  320.    #( #writeFTXTClip:toFTXTString:size: #postToClipUnit:fromFTXTString:  ) \
  321.   pTempVar 5 5 >>
  322.  
  323. pTempVar <- <primitive 110 24 >
  324. <primitive 112 pTempVar 1  " close " \
  325.   #( #[ 16r50 16r12 16rFA 16r02 16rE5 16rF2 16rF5] \
  326.     #(  )) >
  327.  
  328. <primitive 112 pTempVar 2  " open: " \
  329.   #( #[ 16r51 16r12 16r21 16rFA 16r03 16rE5 16rF2 16r21 16r61 16rF5] \
  330.     #(  )) >
  331.  
  332. <primitive 112 pTempVar 3  " new: " \
  333.   #( #[ 16r21 16r62 16r20 16rF3 16rF5] \
  334.     #(  )) >
  335.  
  336. <primitive 112 pTempVar 4  " displayBytes: " \
  337.   #( #[ 16r20 16r80 16r00 16r72 16r05 16r3A 16rA0 16r73 16r31 16r22 16r0A \
  338.         16r10 16r0B 16r11 16r32 16r0B 16r11 16r13 16r0A 16r10 16r0B \
  339.         16r11 16r73 16r05 16r16 16r21 16r23 16rFA 16r03 16rE5 16rF2 \
  340.         16rF5] \
  341.     #( #getTrackSize 'displayBytes - size = ' ' Track #: '  )) >
  342.  
  343. <primitive 112 pTempVar 5  " writeTrack:track: " \
  344.   #( #[ 16r53 16r12 16r21 16r22 16rFA 16r04 16rE5 16rF3 16rF5] \
  345.     #(  )) >
  346.  
  347. <primitive 112 pTempVar 6  " readTrack: " \
  348.   #( #[ 16r21 16r63 16r52 16r12 16r21 16rFA 16r03 16rE5 16rF3 16rF5] \
  349.     #(  )) >
  350.  
  351. <primitive 112 pTempVar 7  " isWriteProtected " \
  352.   #( #[ 16r57 16r12 16rFA 16r02 16rE5 16rF3 16rF5] \
  353.     #(  )) >
  354.  
  355. <primitive 112 pTempVar 8  " isDiskPresent " \
  356.   #( #[ 16r56 16r12 16rFA 16r02 16rE5 16rF3 16rF5] \
  357.     #(  )) >
  358.  
  359. <primitive 112 pTempVar 9  " seekTrack: " \
  360.   #( #[ 16r21 16r63 16r30 16r12 16r21 16rFA 16r03 16rE5 16rF3 16rF5] \
  361.     #( 15  )) >
  362.  
  363. <primitive 112 pTempVar 10  " getTotalSize " \
  364.   #( #[ 16r20 16r80 16r00 16r72 16r20 16r80 16r01 16r71 16r22 16r21 16rC2 \
  365.         16rF3 16rF5] \
  366.     #( #getTotalSectors #getSectorSize  )) >
  367.  
  368. <primitive 112 pTempVar 11  " getTotalSectors " \
  369.   #( #[ 16r30 16r12 16rFA 16r02 16rE5 16rF3 16rF5] \
  370.     #( 14  )) >
  371.  
  372. <primitive 112 pTempVar 12  " getNumberOfTracks " \
  373.   #( #[ 16r30 16r12 16rFA 16r02 16rE5 16rF3 16rF5] \
  374.     #( 13  )) >
  375.  
  376. <primitive 112 pTempVar 13  " displayDriveType " \
  377.   #( #[ 16r20 16r80 16r00 16r71 16r21 16r51 16rB5 16rF7 16r04 16r31 16rA8 \
  378.         16rF8 16r0D 16rF2 16r21 16r52 16rB5 16rF7 16r04 16r32 16rA8 \
  379.         16rF8 16r03 16rF2 16r33 16rA8 16rF2 16rF5] \
  380.     #( #getDriveType '3-1/2" Floppy Disk.' '5-1/4" Floppy Disk.' '3-1/2" Floppy spinning at 150 RPM'  )) >
  381.  
  382. <primitive 112 pTempVar 14  " getDriveType " \
  383.   #( #[ 16r30 16r12 16rFA 16r02 16rE5 16rF3 16rF5] \
  384.     #( 11  )) >
  385.  
  386. <primitive 112 pTempVar 15  " getDeviceType " \
  387.   #( #[ 16r59 16r12 16rFA 16r02 16rE5 16rF3 16rF5] \
  388.     #(  )) >
  389.  
  390. <primitive 112 pTempVar 16  " getTrackSize " \
  391.   #( #[ 16r30 16r12 16rFA 16r02 16rE5 16rF3 16rF5] \
  392.     #( 10  )) >
  393.  
  394. <primitive 112 pTempVar 17  " getSectorSize " \
  395.   #( #[ 16r30 16r12 16rFA 16r02 16rE5 16rF3 16rF5] \
  396.     #( 12  )) >
  397.  
  398. <primitive 112 pTempVar 18  " getErrorString " \
  399.   #( #[ 16r58 16r12 16rFA 16r02 16rE5 16rF3 16rF5] \
  400.     #(  )) >
  401.  
  402. <primitive 112 pTempVar 19  " setSyncType: " \
  403.   #( #[ 16r55 16r12 16r21 16rFA 16r03 16rE5 16rF2 16r21 16r60 16rF5] \
  404.     #(  )) >
  405.  
  406. <primitive 112 pTempVar 20  " clearReadBuffer " \
  407.   #( #[ 16r54 16r12 16rFA 16r02 16rE5 16rF2 16rF5] \
  408.     #(  )) >
  409.  
  410. <primitive 112 pTempVar 21  " writeRawData:track: " \
  411.   #( #[ 16r05 16r15 16r12 16r21 16r22 16rFA 16r04 16rE5 16rF3 16rF5] \
  412.     #(  )) >
  413.  
  414. <primitive 112 pTempVar 22  " readRawData: " \
  415.   #( #[ 16r05 16r14 16r12 16r21 16rFA 16r03 16rE5 16rF3 16rF5] \
  416.     #(  )) >
  417.  
  418. <primitive 112 pTempVar 23  " formatTrack:data: " \
  419.   #( #[ 16r05 16r13 16r12 16r22 16r21 16rFA 16r04 16rE5 16rF3 16rF5] \
  420.     #(  )) >
  421.  
  422. <primitive 112 pTempVar 24  " ejectDisk " \
  423.   #( #[ 16r05 16r10 16r12 16rFA 16r02 16rE5 16rF3 16rF5] \
  424.     #(  )) >
  425.  
  426. <primitive 98 #TrackDisk \
  427.   <primitive 97 #TrackDisk #Device #AmigaTalk:System/TrackDisk.st \
  428.    #(  #syncType #unitNumber #diskName #trkNumber ) \
  429.    #( #close #open: #new: #displayBytes: #writeTrack:track: #readTrack:  \
  430.        #isWriteProtected #isDiskPresent #seekTrack: #getTotalSize #getTotalSectors #getNumberOfTracks  \
  431.        #displayDriveType #getDriveType #getDeviceType #getTrackSize #getSectorSize #getErrorString  \
  432.        #setSyncType: #clearReadBuffer #writeRawData:track: #readRawData: #formatTrack:data:  \
  433.        #ejectDisk  ) \
  434.   pTempVar 4 5 >>
  435.  
  436. pTempVar <- <primitive 110 15 >
  437. <primitive 112 pTempVar 1  " close " \
  438.   #( #[ 16r50 16r10 16rFA 16r02 16rE4 16rF2 16rF5] \
  439.     #(  )) >
  440.  
  441. <primitive 112 pTempVar 2  " openTimerType " \
  442.   #( #[ 16r51 16r10 16r13 16r11 16r12 16rFA 16r05 16rE4 16rF2 16rF5] \
  443.     #(  )) >
  444.  
  445. <primitive 112 pTempVar 3  " new: " \
  446.   #( #[ 16r21 16r60 16r20 16rF3 16rF5] \
  447.     #(  )) >
  448.  
  449. <primitive 112 pTempVar 4  " getEClockLow " \
  450.   #( #[ 16r30 16r10 16rFA 16r02 16rE4 16rF3 16rF5] \
  451.     #( 11  )) >
  452.  
  453. <primitive 112 pTempVar 5  " getEClockHigh " \
  454.   #( #[ 16r30 16r10 16rFA 16r02 16rE4 16rF3 16rF5] \
  455.     #( 10  )) >
  456.  
  457. <primitive 112 pTempVar 6  " compare:micros:toSeconds:micros: " \
  458.   #( #[ 16r59 16r10 16r21 16r22 16r23 16r24 16rFA 16r06 16rE4 16rF3 16rF5 \
  459.        ] \
  460.     #(  )) >
  461.  
  462. <primitive 112 pTempVar 7  " setSeconds:micros: " \
  463.   #( #[ 16r21 16r61 16r22 16r62 16r58 16r10 16r21 16r22 16rFA 16r04 16rE4 \
  464.         16rF3 16rF5] \
  465.     #(  )) >
  466.  
  467. <primitive 112 pTempVar 8  " getMicros " \
  468.   #( #[ 16r57 16r10 16rFA 16r02 16rE4 16rF3 16rF5] \
  469.     #(  )) >
  470.  
  471. <primitive 112 pTempVar 9  " getSeconds " \
  472.   #( #[ 16r56 16r10 16rFA 16r02 16rE4 16rF3 16rF5] \
  473.     #(  )) >
  474.  
  475. <primitive 112 pTempVar 10  " getTimerType " \
  476.   #( #[ 16r13 16rF3 16rF5] \
  477.     #(  )) >
  478.  
  479. <primitive 112 pTempVar 11  " setTimerType: " \
  480.   #( #[ 16r21 16r63 16rF5] \
  481.     #(  )) >
  482.  
  483. <primitive 112 pTempVar 12  " test " \
  484.   #( #[ 16r55 16r10 16rFA 16r02 16rE4 16rF3 16rF5] \
  485.     #(  )) >
  486.  
  487. <primitive 112 pTempVar 13  " delaySeconds:micros: " \
  488.   #( #[ 16r54 16r10 16r21 16r22 16rFA 16r04 16rE4 16rF2 16rF5] \
  489.     #(  )) >
  490.  
  491. <primitive 112 pTempVar 14  " startWithSecs:withMicros: " \
  492.   #( #[ 16r53 16r10 16r21 16r22 16rFA 16r04 16rE4 16rF2 16rF5] \
  493.     #(  )) >
  494.  
  495. <primitive 112 pTempVar 15  " stop " \
  496.   #( #[ 16r52 16r10 16rFA 16r02 16rE4 16rF2 16rF5] \
  497.     #(  )) >
  498.  
  499. <primitive 98 #TimerDevice \
  500.   <primitive 97 #TimerDevice #Device #AmigaTalk:System/Timer.st \
  501.    #(  #tname #seconds #micros #timerType ) \
  502.    #( #close #openTimerType #new: #getEClockLow #getEClockHigh  \
  503.        #compare:micros:toSeconds:micros: #setSeconds:micros: #getMicros #getSeconds #getTimerType #setTimerType: #test  \
  504.        #delaySeconds:micros: #startWithSecs:withMicros: #stop  ) \
  505.   pTempVar 5 7 >>
  506.  
  507. pTempVar <- <primitive 110 23 >
  508. <primitive 112 pTempVar 1  " new: " \
  509.   #( #[ 16r21 16r6A 16r20 16rF3 16rF5] \
  510.     #(  )) >
  511.  
  512. <primitive 112 pTempVar 2  " close " \
  513.   #( #[ 16r50 16r15 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
  514.     #(  )) >
  515.  
  516. <primitive 112 pTempVar 3  " open " \
  517.   #( #[ 16r51 16r15 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
  518.     #(  )) >
  519.  
  520. <primitive 112 pTempVar 4  " setBufferSize: " \
  521.   #( #[ 16r21 16r65 16rF5] \
  522.     #(  )) >
  523.  
  524. <primitive 112 pTempVar 5  " setTerminators: " \
  525.   #( #[ 16r30 16r21 16r1A 16rFA 16r03 16rE3 16rF1 16r60 16rF3 16rF5] \
  526.     #( 14  )) >
  527.  
  528. <primitive 112 pTempVar 6  " setFlags: " \
  529.   #( #[ 16r30 16r56 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r68 16rF3 16rF5 \
  530.        ] \
  531.     #( 13  )) >
  532.  
  533. <primitive 112 pTempVar 7  " setRBufSize: " \
  534.   #( #[ 16r30 16r55 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r67 16rF3 16rF5 \
  535.        ] \
  536.     #( 13  )) >
  537.  
  538. <primitive 112 pTempVar 8  " setBreakLen: " \
  539.   #( #[ 16r30 16r54 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r66 16rF3 16rF5 \
  540.        ] \
  541.     #( 13  )) >
  542.  
  543. <primitive 112 pTempVar 9  " setStops: " \
  544.   #( #[ 16r30 16r53 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r64 16rF3 16rF5 \
  545.        ] \
  546.     #( 13  )) >
  547.  
  548. <primitive 112 pTempVar 10  " setDataSize: " \
  549.   #( #[ 16r30 16r52 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r63 16rF3 16rF5 \
  550.        ] \
  551.     #( 13  )) >
  552.  
  553. <primitive 112 pTempVar 11  " setParity:status: " \
  554.   #( #[ 16r30 16r21 16r22 16r1A 16rFA 16r04 16rE3 16rF2 16rF5] \
  555.     #( 15  )) >
  556.  
  557. <primitive 112 pTempVar 12  " setBaud: " \
  558.   #( #[ 16r30 16r50 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r62 16rF3 16rF5 \
  559.        ] \
  560.     #( 13  )) >
  561.  
  562. <primitive 112 pTempVar 13  " setSyncType: " \
  563.   #( #[ 16r30 16r21 16r1A 16rFA 16r03 16rE3 16rF1 16r69 16rF3 16rF5] \
  564.     #( 12  )) >
  565.  
  566. <primitive 112 pTempVar 14  " clearReadBuffer " \
  567.   #( #[ 16r30 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
  568.     #( 11  )) >
  569.  
  570. <primitive 112 pTempVar 15  " flush " \
  571.   #( #[ 16r30 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
  572.     #( 10  )) >
  573.  
  574. <primitive 112 pTempVar 16  " getStatus " \
  575.   #( #[ 16r59 16r1A 16rFA 16r02 16rE3 16rF1 16r61 16rF3 16rF5] \
  576.     #(  )) >
  577.  
  578. <primitive 112 pTempVar 17  " sendBreakOfDuration: " \
  579.   #( #[ 16r58 16r21 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
  580.     #(  )) >
  581.  
  582. <primitive 112 pTempVar 18  " restart " \
  583.   #( #[ 16r57 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
  584.     #(  )) >
  585.  
  586. <primitive 112 pTempVar 19  " pause " \
  587.   #( #[ 16r56 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
  588.     #(  )) >
  589.  
  590. <primitive 112 pTempVar 20  " reset " \
  591.   #( #[ 16r55 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
  592.     #(  )) >
  593.  
  594. <primitive 112 pTempVar 21  " writeThis: " \
  595.   #( #[ 16r54 16r21 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
  596.     #(  )) >
  597.  
  598. <primitive 112 pTempVar 22  " readSync: " \
  599.   #( #[ 16r53 16r21 16r1A 16rFA 16r03 16rE3 16rF3 16rF5] \
  600.     #(  )) >
  601.  
  602. <primitive 112 pTempVar 23  " initializeWithTerm: " \
  603.   #( #[ 16r52 16r21 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
  604.     #(  )) >
  605.  
  606. <primitive 98 #SerialDevice \
  607.   <primitive 97 #SerialDevice #Device #AmigaTalk:System/SerialDevice.st \
  608.    #(  #terminators #status #baudrate #dSize #stops #bufferSize #brkLen #rBufSize \
  609.         #syncType #serialName ) \
  610.    #( #new: #close #open #setBufferSize: #setTerminators: #setFlags: #setRBufSize:  \
  611.        #setBreakLen: #setStops: #setDataSize: #setParity:status: #setBaud: #setSyncType:  \
  612.        #clearReadBuffer #flush #getStatus #sendBreakOfDuration: #restart #pause #reset #writeThis:  \
  613.        #readSync: #initializeWithTerm:  ) \
  614.   pTempVar 3 5 >>
  615.  
  616. pTempVar <- <primitive 110 10 >
  617. <primitive 112 pTempVar 1  " write:this: " \
  618.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  619.     #( 'write: devName this: string' #subClassResponsibility:  )) >
  620.  
  621. <primitive 112 pTempVar 2  " getDeviceAddressList " \
  622.   #( #[ 16r52 16r54 16rFA 16r02 16rFA 16rF3 16rF5] \
  623.     #(  )) >
  624.  
  625. <primitive 112 pTempVar 3  " update " \
  626.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  627.     #( 'update' #notImplemented:  )) >
  628.  
  629. <primitive 112 pTempVar 4  " start " \
  630.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  631.     #( 'start' #notImplemented:  )) >
  632.  
  633. <primitive 112 pTempVar 5  " stop " \
  634.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  635.     #( 'stop' #notImplemented:  )) >
  636.  
  637. <primitive 112 pTempVar 6  " reset: " \
  638.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  639.     #( 'reset: devName' #subClassResponsibility:  )) >
  640.  
  641. <primitive 112 pTempVar 7  " read: " \
  642.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  643.     #( 'read: devName' #notImplemented:  )) >
  644.  
  645. <primitive 112 pTempVar 8  " invalid " \
  646.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  647.     #( 'invalid' #notImplemented:  )) >
  648.  
  649. <primitive 112 pTempVar 9  " flush: " \
  650.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  651.     #( 'flush: devName' #subClassResponsibility:  )) >
  652.  
  653. <primitive 112 pTempVar 10  " clear " \
  654.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  655.     #( 'clear' #notImplemented:  )) >
  656.  
  657. <primitive 98 #Device \
  658.   <primitive 97 #Device #Object #AmigaTalk:System/Device.st \
  659.    #(  ) \
  660.    #( #write:this: #getDeviceAddressList #update #start #stop #reset: #read:  \
  661.        #invalid #flush: #clear  ) \
  662.   pTempVar 3 3 >>
  663.  
  664. pTempVar <- <primitive 110 11 >
  665. <primitive 112 pTempVar 1  " new: " \
  666.   #( #[ 16r21 16r60 16r20 16rF3 16rF5] \
  667.     #(  )) >
  668.  
  669. <primitive 112 pTempVar 2  " getOpenCount " \
  670.   #( #[ 16r52 16r57 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  671.     #(  )) >
  672.  
  673. <primitive 112 pTempVar 3  " getCheckSum " \
  674.   #( #[ 16r52 16r56 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  675.     #(  )) >
  676.  
  677. <primitive 112 pTempVar 4  " getRevision " \
  678.   #( #[ 16r52 16r55 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  679.     #(  )) >
  680.  
  681. <primitive 112 pTempVar 5  " getFlags " \
  682.   #( #[ 16r52 16r53 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  683.     #(  )) >
  684.  
  685. <primitive 112 pTempVar 6  " getPosSize " \
  686.   #( #[ 16r52 16r52 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  687.     #(  )) >
  688.  
  689. <primitive 112 pTempVar 7  " getNegSize " \
  690.   #( #[ 16r52 16r51 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  691.     #(  )) >
  692.  
  693. <primitive 112 pTempVar 8  " getVersion " \
  694.   #( #[ 16r52 16r54 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  695.     #(  )) >
  696.  
  697. <primitive 112 pTempVar 9  " getIDString " \
  698.   #( #[ 16r52 16r50 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  699.     #(  )) >
  700.  
  701. <primitive 112 pTempVar 10  " close " \
  702.   #( #[ 16r50 16r10 16rFA 16r02 16rBE 16rF3 16rF5] \
  703.     #(  )) >
  704.  
  705. <primitive 112 pTempVar 11  " openVersion: " \
  706.   #( #[ 16r51 16r10 16r21 16rFA 16r03 16rBE 16rF3 16rF5] \
  707.     #(  )) >
  708.  
  709. <primitive 98 #Library \
  710.   <primitive 97 #Library #Object #AmigaTalk:System/Library.st \
  711.    #(  #libName ) \
  712.    #( #new: #getOpenCount #getCheckSum #getRevision #getFlags #getPosSize  \
  713.        #getNegSize #getVersion #getIDString #close #openVersion:  ) \
  714.   pTempVar 2 4 >>
  715.  
  716. pTempVar <- <primitive 110 3 >
  717. <primitive 112 pTempVar 1  " new: " \
  718.   #( #[ 16r20 16r30 16r91 16r01 16rF3 16rF5] \
  719.     #( 'new:' #doesNotUnderstand:  )) >
  720.  
  721. <primitive 112 pTempVar 2  " getControllerType: " \
  722.   #( #[ 16r57 16r21 16rFA 16r02 16rDF 16rF3 16rF5] \
  723.     #(  )) >
  724.  
  725. <primitive 112 pTempVar 3  " openGamePort:named: " \
  726.   #( #[ 16r20 16r30 16r91 16r01 16rF3 16rF5] \
  727.     #( 'openGamePort:named:' #subclassResponsibility:  )) >
  728.  
  729. <primitive 98 #GamePort \
  730.   <primitive 97 #GamePort #Device #AmigaTalk:System/GamePort.st \
  731.    #(  ) \
  732.    #( #new: #getControllerType: #openGamePort:named:  ) \
  733.   pTempVar 3 3 >>
  734.  
  735. pTempVar <- <primitive 110 21 >
  736. <primitive 112 pTempVar 1  " waitForYPos: " \
  737.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  738.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  739.     #( #getYPos  )) >
  740.  
  741. <primitive 112 pTempVar 2  " waitForXPos: " \
  742.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  743.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  744.     #( #getXPos  )) >
  745.  
  746. <primitive 112 pTempVar 3  " waitForQualifier: " \
  747.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  748.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  749.     #( #getQualifiers  )) >
  750.  
  751. <primitive 112 pTempVar 4  " waitForButton: " \
  752.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  753.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  754.     #( #getButtonCode  )) >
  755.  
  756. <primitive 112 pTempVar 5  " setYDeltaTransition: " \
  757.   #( #[ 16r55 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  758.     #(  )) >
  759.  
  760. <primitive 112 pTempVar 6  " setXDeltaTransition: " \
  761.   #( #[ 16r54 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  762.     #(  )) >
  763.  
  764. <primitive 112 pTempVar 7  " setTimeTransition: " \
  765.   #( #[ 16r21 16r50 16rC7 16rF7 16r05 16r30 16rA8 16rF2 16r5D 16rF3 16rF2 \
  766.         16r53 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  767.     #( 'timeOutValue out of range (S/B >= 0).'  )) >
  768.  
  769. <primitive 112 pTempVar 8  " setKeyTransition: " \
  770.   #( #[ 16r21 16r51 16rCB 16r21 16r81 16r00 16r53 16rC8 16rF7 16r08 16r52 \
  771.         16r10 16r21 16rFA 16r03 16rDF 16rF8 16r03 16rF2 16r31 16rA8 \
  772.         16rF2 16rF5] \
  773.     #( #& 'transType parameter out of range (1 to 3 only)!'  )) >
  774.  
  775. <primitive 112 pTempVar 9  " getTriggerYDelta " \
  776.   #( #[ 16r05 16r13 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  777.     #(  )) >
  778.  
  779. <primitive 112 pTempVar 10  " getTriggerXDelta " \
  780.   #( #[ 16r05 16r12 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  781.     #(  )) >
  782.  
  783. <primitive 112 pTempVar 11  " getTriggerTime " \
  784.   #( #[ 16r05 16r11 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  785.     #(  )) >
  786.  
  787. <primitive 112 pTempVar 12  " getTriggerKeys " \
  788.   #( #[ 16r05 16r10 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  789.     #(  )) >
  790.  
  791. <primitive 112 pTempVar 13  " getTimeStamp " \
  792.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  793.     #( 15  )) >
  794.  
  795. <primitive 112 pTempVar 14  " getIEAddress " \
  796.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  797.     #( 14  )) >
  798.  
  799. <primitive 112 pTempVar 15  " getYPos " \
  800.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  801.     #( 13  )) >
  802.  
  803. <primitive 112 pTempVar 16  " getXPos " \
  804.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  805.     #( 12  )) >
  806.  
  807. <primitive 112 pTempVar 17  " getQualifiers " \
  808.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  809.     #( 11  )) >
  810.  
  811. <primitive 112 pTempVar 18  " getButtonCode " \
  812.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  813.     #( 10  )) >
  814.  
  815. <primitive 112 pTempVar 19  " clearMousePortBuffer " \
  816.   #( #[ 16r56 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  817.     #(  )) >
  818.  
  819. <primitive 112 pTempVar 20  " closeMousePort " \
  820.   #( #[ 16r50 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  821.     #(  )) >
  822.  
  823. <primitive 112 pTempVar 21  " openMousePort:named: " \
  824.   #( #[ 16r51 16r22 16r21 16rFA 16r03 16rDF 16rF2 16r57 16r22 16rFA 16r02 \
  825.         16rDF 16r73 16r23 16r50 16rB5 16rF7 16r0D 16r58 16r22 16r51 \
  826.         16rFA 16r03 16rDF 16rF2 16r22 16r60 16r20 16rF3 16rF8 16r0F \
  827.         16rF2 16r20 16r30 16r21 16r0B 16r11 16r31 16r0B 16r11 16rBC \
  828.         16rF2 16r5D 16rF1 16r60 16rF3 16rF2 16rF5] \
  829.     #( 'Mouse port ' ' already in use!'  )) >
  830.  
  831. <primitive 98 #Mouse \
  832.   <primitive 97 #Mouse #GamePort #AmigaTalk:System/GamePort.st \
  833.    #(  #pname ) \
  834.    #( #waitForYPos: #waitForXPos: #waitForQualifier: #waitForButton:  \
  835.        #setYDeltaTransition: #setXDeltaTransition: #setTimeTransition: #setKeyTransition: #getTriggerYDelta  \
  836.        #getTriggerXDelta #getTriggerTime #getTriggerKeys #getTimeStamp #getIEAddress #getYPos #getXPos  \
  837.        #getQualifiers #getButtonCode #clearMousePortBuffer #closeMousePort #openMousePort:named:  ) \
  838.   pTempVar 4 6 >>
  839.  
  840. pTempVar <- <primitive 110 21 >
  841. <primitive 112 pTempVar 1  " waitForYPos: " \
  842.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  843.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  844.     #( #getYPos  )) >
  845.  
  846. <primitive 112 pTempVar 2  " waitForXPos: " \
  847.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  848.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  849.     #( #getXPos  )) >
  850.  
  851. <primitive 112 pTempVar 3  " waitForQualifier: " \
  852.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  853.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  854.     #( #getQualifiers  )) >
  855.  
  856. <primitive 112 pTempVar 4  " waitForButton: " \
  857.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  858.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  859.     #( #getButtonCode  )) >
  860.  
  861. <primitive 112 pTempVar 5  " setYDeltaTransition: " \
  862.   #( #[ 16r55 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  863.     #(  )) >
  864.  
  865. <primitive 112 pTempVar 6  " setXDeltaTransition: " \
  866.   #( #[ 16r54 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  867.     #(  )) >
  868.  
  869. <primitive 112 pTempVar 7  " setTimeTransition: " \
  870.   #( #[ 16r21 16r50 16rC7 16rF7 16r05 16r30 16rA8 16rF2 16r5D 16rF3 16rF2 \
  871.         16r53 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  872.     #( 'timeOutValue out of range (S/B >= 0).'  )) >
  873.  
  874. <primitive 112 pTempVar 8  " setKeyTransition: " \
  875.   #( #[ 16r21 16r51 16rCB 16r21 16r81 16r00 16r53 16rC8 16rF7 16r08 16r52 \
  876.         16r10 16r21 16rFA 16r03 16rDF 16rF8 16r03 16rF2 16r31 16rA8 \
  877.         16rF2 16rF5] \
  878.     #( #& 'transType parameter out of range (1 to 3 only)!'  )) >
  879.  
  880. <primitive 112 pTempVar 9  " getTriggerYDelta " \
  881.   #( #[ 16r05 16r13 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  882.     #(  )) >
  883.  
  884. <primitive 112 pTempVar 10  " getTriggerXDelta " \
  885.   #( #[ 16r05 16r12 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  886.     #(  )) >
  887.  
  888. <primitive 112 pTempVar 11  " getTriggerTime " \
  889.   #( #[ 16r05 16r11 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  890.     #(  )) >
  891.  
  892. <primitive 112 pTempVar 12  " getTriggerKeys " \
  893.   #( #[ 16r05 16r10 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  894.     #(  )) >
  895.  
  896. <primitive 112 pTempVar 13  " getTimeStamp " \
  897.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  898.     #( 15  )) >
  899.  
  900. <primitive 112 pTempVar 14  " getIEAddress " \
  901.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  902.     #( 14  )) >
  903.  
  904. <primitive 112 pTempVar 15  " getYPos " \
  905.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  906.     #( 13  )) >
  907.  
  908. <primitive 112 pTempVar 16  " getXPos " \
  909.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  910.     #( 12  )) >
  911.  
  912. <primitive 112 pTempVar 17  " getQualifiers " \
  913.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  914.     #( 11  )) >
  915.  
  916. <primitive 112 pTempVar 18  " getButtonCode " \
  917.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  918.     #( 10  )) >
  919.  
  920. <primitive 112 pTempVar 19  " clearGamePortBuffer " \
  921.   #( #[ 16r56 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  922.     #(  )) >
  923.  
  924. <primitive 112 pTempVar 20  " closeGamePort " \
  925.   #( #[ 16r50 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  926.     #(  )) >
  927.  
  928. <primitive 112 pTempVar 21  " openGamePort:named: " \
  929.   #( #[ 16r51 16r22 16r21 16rFA 16r03 16rDF 16rF2 16r57 16r22 16rFA 16r02 \
  930.         16rDF 16r73 16r23 16r50 16rB5 16rF7 16r0D 16r58 16r22 16r53 \
  931.         16rFA 16r03 16rDF 16rF2 16r22 16r60 16r20 16rF3 16rF8 16r0F \
  932.         16rF2 16r20 16r30 16r21 16r0B 16r11 16r31 16r0B 16r11 16rBC \
  933.         16rF2 16r5D 16rF1 16r60 16rF3 16rF2 16rF5] \
  934.     #( 'Game port ' ' already in use!'  )) >
  935.  
  936. <primitive 98 #AbsJoyStick \
  937.   <primitive 97 #AbsJoyStick #GamePort #AmigaTalk:System/GamePort.st \
  938.    #(  #pname ) \
  939.    #( #waitForYPos: #waitForXPos: #waitForQualifier: #waitForButton:  \
  940.        #setYDeltaTransition: #setXDeltaTransition: #setTimeTransition: #setKeyTransition: #getTriggerYDelta  \
  941.        #getTriggerXDelta #getTriggerTime #getTriggerKeys #getTimeStamp #getIEAddress #getYPos #getXPos  \
  942.        #getQualifiers #getButtonCode #clearGamePortBuffer #closeGamePort #openGamePort:named:  ) \
  943.   pTempVar 4 6 >>
  944.  
  945. pTempVar <- <primitive 110 21 >
  946. <primitive 112 pTempVar 1  " waitForYPos: " \
  947.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  948.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  949.     #( #getYPos  )) >
  950.  
  951. <primitive 112 pTempVar 2  " waitForXPos: " \
  952.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  953.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  954.     #( #getXPos  )) >
  955.  
  956. <primitive 112 pTempVar 3  " waitForQualifier: " \
  957.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  958.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  959.     #( #getQualifiers  )) >
  960.  
  961. <primitive 112 pTempVar 4  " waitForButton: " \
  962.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  963.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  964.     #( #getButtonCode  )) >
  965.  
  966. <primitive 112 pTempVar 5  " setYDeltaTransition: " \
  967.   #( #[ 16r55 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  968.     #(  )) >
  969.  
  970. <primitive 112 pTempVar 6  " setXDeltaTransition: " \
  971.   #( #[ 16r54 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  972.     #(  )) >
  973.  
  974. <primitive 112 pTempVar 7  " setTimeTransition: " \
  975.   #( #[ 16r21 16r50 16rC7 16rF7 16r05 16r30 16rA8 16rF2 16r5D 16rF3 16rF2 \
  976.         16r53 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  977.     #( 'timeOutValue out of range (S/B >= 0).'  )) >
  978.  
  979. <primitive 112 pTempVar 8  " setKeyTransition: " \
  980.   #( #[ 16r21 16r51 16rCB 16r21 16r81 16r00 16r53 16rC8 16rF7 16r08 16r52 \
  981.         16r10 16r21 16rFA 16r03 16rDF 16rF8 16r03 16rF2 16r31 16rA8 \
  982.         16rF2 16rF5] \
  983.     #( #& 'transType parameter out of range (1 to 3 only)!'  )) >
  984.  
  985. <primitive 112 pTempVar 9  " getTriggerYDelta " \
  986.   #( #[ 16r05 16r13 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  987.     #(  )) >
  988.  
  989. <primitive 112 pTempVar 10  " getTriggerXDelta " \
  990.   #( #[ 16r05 16r12 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  991.     #(  )) >
  992.  
  993. <primitive 112 pTempVar 11  " getTriggerTime " \
  994.   #( #[ 16r05 16r11 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  995.     #(  )) >
  996.  
  997. <primitive 112 pTempVar 12  " getTriggerKeys " \
  998.   #( #[ 16r05 16r10 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  999.     #(  )) >
  1000.  
  1001. <primitive 112 pTempVar 13  " getTimeStamp " \
  1002.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1003.     #( 15  )) >
  1004.  
  1005. <primitive 112 pTempVar 14  " getIEAddress " \
  1006.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1007.     #( 14  )) >
  1008.  
  1009. <primitive 112 pTempVar 15  " getYPos " \
  1010.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1011.     #( 13  )) >
  1012.  
  1013. <primitive 112 pTempVar 16  " getXPos " \
  1014.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1015.     #( 12  )) >
  1016.  
  1017. <primitive 112 pTempVar 17  " getQualifiers " \
  1018.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1019.     #( 11  )) >
  1020.  
  1021. <primitive 112 pTempVar 18  " getButtonCode " \
  1022.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  1023.     #( 10  )) >
  1024.  
  1025. <primitive 112 pTempVar 19  " clearGamePortBuffer " \
  1026.   #( #[ 16r56 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  1027.     #(  )) >
  1028.  
  1029. <primitive 112 pTempVar 20  " closeGamePort " \
  1030.   #( #[ 16r50 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  1031.     #(  )) >
  1032.  
  1033. <primitive 112 pTempVar 21  " openGamePort:named: " \
  1034.   #( #[ 16r51 16r22 16r21 16rFA 16r03 16rDF 16rF2 16r57 16r22 16rFA 16r02 \
  1035.         16rDF 16r73 16r23 16r50 16rB5 16rF7 16r0D 16r58 16r22 16r52 \
  1036.         16rFA 16r03 16rDF 16rF2 16r22 16r60 16r20 16rF3 16rF8 16r0F \
  1037.         16rF2 16r20 16r30 16r21 16r0B 16r11 16r31 16r0B 16r11 16rBC \
  1038.         16rF2 16r5D 16rF1 16r60 16rF3 16rF2 16rF5] \
  1039.     #( 'Game port ' ' already in use!'  )) >
  1040.  
  1041. <primitive 98 #RelJoyStick \
  1042.   <primitive 97 #RelJoyStick #GamePort #AmigaTalk:System/GamePort.st \
  1043.    #(  #pname ) \
  1044.    #( #waitForYPos: #waitForXPos: #waitForQualifier: #waitForButton:  \
  1045.        #setYDeltaTransition: #setXDeltaTransition: #setTimeTransition: #setKeyTransition: #getTriggerYDelta  \
  1046.        #getTriggerXDelta #getTriggerTime #getTriggerKeys #getTimeStamp #getIEAddress #getYPos #getXPos  \
  1047.        #getQualifiers #getButtonCode #clearGamePortBuffer #closeGamePort #openGamePort:named:  ) \
  1048.   pTempVar 4 6 >>
  1049.  
  1050.